home *** CD-ROM | disk | FTP | other *** search
/ KimStacks 7 / KimStacks CD-ROM 7 1993.iso / ShareWare / Games / Core! 1.1 / Battle Programs / Standard / worm < prev   
Encoding:
Text File  |  1989-07-18  |  533 b   |  21 lines
  1. ;
  2. ; create the creeping unstoppable worm.
  3. ;
  4. ; The worm is a consecutive array of imps.
  5. ; Each imp is a separate process, and they
  6. ; are running in consecutive locations.  
  7. ;
  8. ; no frontal assault of any kind can destroy
  9. ; a worm.   It is self repairing.  The only
  10. ; effective attack against a worm is to 
  11. ; destroy is from left to right.
  12. ;
  13.  
  14. length  dat 0,10
  15. go      spl extrude,0
  16.         djn 0,length
  17.         mov length,extrude ;Stop making the worm
  18. ;
  19. extrude spl 0,0   ;spin here and make a worm
  20.         mov 0,1   ;of imps
  21. end     go